home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 016a / bingo2.zip / BINGO.SC < prev    next >
Text File  |  1991-09-16  |  2KB  |  76 lines
  1. ;******************************************************************************
  2. ;*  BINGO.SC  The sole purpose of this program is to enable quick comparisons *
  3. ;*  on screen of the STRUCTURES of TWO different tables.  The code in this    *
  4. ;*  particular script is 'HEAVILY BORROWED' from another file in the BORDB    *
  5. ;*  libraries called PRTSTR.ARC (Print Structure):  My sincere thanks to the  *
  6. ;*  author for some great ideas to solve a practical problem.  Dickford Cohn  *
  7. ;******************************************************************************
  8. PROC TablComp()
  9. CLEAR
  10. CLEARALL
  11. Release VARS ALL
  12. ; ACCEPT the name of the FIRST table
  13. BEEP SLEEP 100 BEEP
  14. STYLE ATTRIBUTE 140
  15. msay = "▒ Select 1st Table Structure ▒"
  16. msaycol =INT((80-LEN(msay))/2)
  17. @ 10, msaycol ?? msay
  18. SHOWTABLES
  19.     DIRECTORY()
  20.     "Highlight the FIRST TABLE TO COMPARE, then Press <Enter> ─┘"
  21.     TO mtable1
  22. msay1 = UPPER(mtable1)+".DB"
  23. msaycol =INT((80-LEN(msay1))/2)
  24. @ 11, msaycol ?? msay1
  25. IF mtable1 = "Esc"
  26. THEN MENU RETURN
  27. ENDIF
  28. ; tools/info/structure/enter table name
  29. MENU {Tools} {Info} {Structure}
  30. TYPEIN mtable1
  31. ENTER
  32. DO_IT!
  33. ; ADD the STRUCT TABLE to the FIRST QUERY TABLE
  34. EMPTY "Bingo1"
  35. ADD "STRUCT" "Bingo1"
  36. CLEAR
  37. ; ACCEPT the name of the SECOND table
  38. BEEP SLEEP 100 BEEP
  39. STYLE ATTRIBUTE 140
  40. msay2 = "▒ Select 2nd Table Structure ▒"
  41. msaycol =INT((80-LEN(msay))/2)
  42. @ 10, msaycol ?? msay2
  43. SHOWTABLES
  44.     DIRECTORY()
  45.     "Highlight the SECOND TABLE TO COMPARE, then Press <Enter> ─┘"
  46.     TO mtable2
  47. msay2 = UPPER(mtable2)+".DB"
  48. msaycol =INT((80-LEN(msay2))/2)
  49. @ 11, msaycol ?? msay2
  50. IF mtable2 = "Esc"
  51. THEN MENU RETURN
  52. ENDIF
  53. ; tools/info/structure/enter table name
  54. MENU {Tools} {Info} {Structure}
  55. TYPEIN mtable2
  56. ENTER
  57. DO_IT!
  58. ; ADD the STRUCT table to the SECOND QUERY TABLE
  59. EMPTY "Bingo2"
  60. ADD "STRUCT" "Bingo2"
  61. ; SAVE the Variables
  62. SAVEVARS ALL
  63. ;On to the FUN!!! --- BINGO1.SC uses an EXAMPLE QUERY to INSERT the contents of
  64. ;BINGO1.DB into the BINGO (Master) TABLE.
  65. PLAY "Bingo1"
  66. ENDPROC
  67. TablComp()
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.